u n i t   U n i t 2 ; 
 
 
 
 i n t e r f a c e 
 
 
 
 u s e s 
 
     W i n d o w s ,   M e s s a g e s ,   S y s U t i l s ,   V a r i a n t s ,   C l a s s e s ,   G r a p h i c s ,   C o n t r o l s ,   F o r m s , 
 
     D i a l o g s ,   S t d C t r l s ,   D B C t r l s ,   B u t t o n s ,   G r i d s ; 
 
 
 
 t y p e 
 
     T F o r m 2   =   c l a s s ( T F o r m ) 
 
         L a b e l 1 :   T L a b e l ; 
 
         O p e n D i a l o g 1 :   T O p e n D i a l o g ; 
 
         S p e e d B u t t o n 1 :   T S p e e d B u t t o n ; 
 
         m e m o r i a :   T S t r i n g G r i d ; 
 
         L a b e l 2 :   T L a b e l ; 
 
         L a b e l 3 :   T L a b e l ; 
 
         S p e e d B u t t o n 3 :   T S p e e d B u t t o n ; 
 
         L a b e l 4 :   T L a b e l ; 
 
         A X e d i t :   T E d i t ; 
 
         L a b e l 5 :   T L a b e l ; 
 
         B X e d i t :   T E d i t ; 
 
         C X e d i t :   T E d i t ; 
 
         D X e d i t :   T E d i t ; 
 
         L a b e l 6 :   T L a b e l ; 
 
         L a b e l 7 :   T L a b e l ; 
 
         L a b e l 8 :   T L a b e l ; 
 
         L a b e l 9 :   T L a b e l ; 
 
         L a b e l 1 0 :   T L a b e l ; 
 
         L a b e l 1 4 :   T L a b e l ; 
 
         E d i t 5 :   T E d i t ; 
 
         E d i t 6 :   T E d i t ; 
 
         S p e e d B u t t o n 4 :   T S p e e d B u t t o n ; 
 
         L a b e l 1 1 :   T L a b e l ; 
 
         L a b e l P C :   T L a b e l ; 
 
         M e m o 1 :   T M e m o ; 
 
         M e m o 2 :   T M e m o ; 
 
         p r o c e d u r e   S p e e d B u t t o n 1 C l i c k ( S e n d e r :   T O b j e c t ) ; 
 
         p r o c e d u r e   S p e e d B u t t o n 3 C l i c k ( S e n d e r :   T O b j e c t ) ; 
 
         p r o c e d u r e   F o r m C r e a t e ( S e n d e r :   T O b j e c t ) ; 
 
     p r i v a t e 
 
         {   P r i v a t e   d e c l a r a t i o n s   } 
 
     p u b l i c 
 
         {   P u b l i c   d e c l a r a t i o n s   } 
 
     e n d ; 
 
     
 
 v a r 
 
     F o r m 2 :   T F o r m 2 ; 
 
     A X : i n t e g e r ;   { m u l t i p l i c a c i o n   &   d i v i s i o n } 
 
     B X : i n t e g e r ;   { m o v e r } 
 
     C X : i n t e g e r ;   { c o n t a d o r   p a r a   o p e r a c i o n e s   S t r i n g s } 
 
     D X : i n t e g e r ;   { d i r e c c i o n   I N / O U T } 
 
     p c : i n t e g e r ; 
 
     c p : 0 . . 1 0 ; 
 
     e t i k e t a s : a r r a y [ 1 . . 1 0 0 0 ] o f   s t r i n g ; 
 
     p o s E t i k e t a s : a r r a y [ 1 . . 1 0 0 0 ] o f   i n t e g e r ; 
 
     c o n t : i n t e g e r ; 
 
     N U M : i n t e g e r ; 
 
     p c A N T : i n t e g e r ; 
 
 
 
 i m p l e m e n t a t i o n 
 
 
 
 { $ R   * . d f m } 
 
 
 
 p r o c e d u r e   T F o r m 2 . S p e e d B u t t o n 1 C l i c k ( S e n d e r :   T O b j e c t ) ; 
 
 v a r 
 
     s : s t r i n g ; 
 
     i : i n t e g e r ; 
 
 b e g i n 
 
     i f   o p e n d i a l o g 1 . e x e c u t e   t h e n 
 
         b e g i n 
 
             s : = ' ' ; 
 
             f o r   i : = ( l e n g t h ( o p e n d i a l o g 1 . F i l e N a m e ) - 6 ) t o   ( l e n g t h ( o p e n d i a l o g 1 . F i l e N a m e ) - 4 ) d o 
 
                 s : = s + o p e n d i a l o g 1 . F i l e N a m e [ i ] ; 
 
             i f ( s = ' O B J ' ) t h e n             
 
                 M e m o 1 . L i n e s . L o a d F r o m F i l e ( o p e n d i a l o g 1 . F i l e N a m e ) 
 
             e l s e 
 
                 S h o w M e s s a g e ( ' E l   a r c h i v o   d e b e   s e r   O B J . t x t ' ) ; 
 
         e n d ; 
 
 e n d ; 
 
 
 
 p r o c e d u r e   T F o r m 2 . S p e e d B u t t o n 3 C l i c k ( S e n d e r :   T O b j e c t ) ; 
 
 v a r 
 
     i , k , l , n u m e r o : i n t e g e r ; 
 
     s , e t i : s t r i n g ; 
 
     p o s i c i o n : s t r i n g ; 
 
     j , p o s : i n t e g e r ; 
 
     o k , o k i z : b o o l e a n ; 
 
     c o m p : b o o l e a n ; 
 
 b e g i n 
 
 t r y   / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * T R Y 
 
 / / ' a s k ' ' m o v ' ' i n c ' ' j z ' ' j c ' ' j n c ' ' a d d ' ' j m p ' ' s u b ' ' r e t ' ' c m p ' ' j l ' ' m s g ' 
 
 s : = m e m o 1 . L i n e s [ 0 ] ; p o s i c i o n : = ' ' ; 
 
 f o r   i : = 6   t o   l e n g t h ( s ) - 1   d o 
 
         p o s i c i o n : = p o s i c i o n + s [ i ] ; 
 
 p c : = s t r t o i n t ( p o s i c i o n ) ; 
 
 l a b e l P C . C a p t i o n : = p o s i c i o n ; 
 
 j : = p c ; 
 
 c o n t : = 1 ; 
 
 f o r   i : = 1   t o   m e m o 1 . L i n e s . C o u n t - 1   d o 
 
     b e g i n 
 
         o k : = f a l s e ; 
 
         s : = m e m o 1 . L i n e s [ i ] ; 
 
         e t i : = ' ' ; 
 
         o k i z : = f a l s e ; 
 
         i f ( n o t ( ( s [ 1 ] = ' j ' ) a n d ( s [ 2 ] = ' l ' ) ) ) t h e n 
 
             i f ( n o t ( ( s [ 1 ] = ' j ' ) a n d ( s [ 2 ] = ' c ' ) ) ) t h e n 
 
             i f ( n o t ( ( s [ 1 ] = ' c ' ) a n d ( s [ 2 ] = ' m ' ) a n d ( s [ 3 ] = ' p ' ) ) ) t h e n 
 
             i f ( n o t ( ( s [ 1 ] = ' e ' ) a n d ( s [ 2 ] = ' n ' ) a n d ( s [ 3 ] = ' d ' ) ) ) t h e n 
 
                 i f   ( n o t ( ( s [ 1 ] = ' m ' ) a n d ( s [ 2 ] = ' o ' ) a n d ( s [ 3 ] = ' v ' ) ) ) t h e n 
 
                     i f   ( n o t ( ( s [ 1 ] = ' a ' ) a n d ( s [ 2 ] = ' s ' ) a n d ( s [ 3 ] = ' k ' ) ) ) t h e n 
 
                         i f ( n o t ( ( s [ 1 ] = ' i ' ) a n d ( s [ 2 ] = ' n ' ) a n d ( s [ 3 ] = ' c ' ) ) ) t h e n 
 
                             i f   ( n o t ( ( s [ 1 ] = ' a ' ) a n d ( s [ 2 ] = ' d ' ) a n d ( s [ 3 ] = ' d ' ) ) ) t h e n 
 
                                 i f ( n o t ( ( s [ 1 ] = ' j ' ) a n d ( s [ 2 ] = ' m ' ) a n d ( s [ 3 ] = ' p ' ) ) ) t h e n 
 
                                     i f ( n o t ( ( s [ 1 ] = ' s ' ) a n d ( s [ 2 ] = ' u ' ) a n d ( s [ 3 ] = ' b ' ) ) ) t h e n 
 
                                         i f ( n o t ( ( s [ 1 ] = ' r ' ) a n d ( s [ 2 ] = ' e ' ) a n d ( s [ 3 ] = ' t ' ) ) ) t h e n 
 
                                             i f   ( n o t ( ( s [ 1 ] = ' m ' ) a n d ( s [ 2 ] = ' s ' ) a n d ( s [ 3 ] = ' g ' ) ) ) t h e n 
 
                                                 i f ( n o t ( ( s [ 1 ] = ' j ' ) a n d ( s [ 2 ] = ' n ' ) a n d ( s [ 3 ] = ' c ' ) ) ) t h e n 
 
                                                     i f ( n o t ( ( s [ 1 ] = ' j ' ) a n d ( s [ 2 ] = ' z ' ) ) ) t h e n 
 
                                                         b e g i n 
 
                                                             k : = 1 ; 
 
                                                             w h i l e   ( ( k < l e n g t h ( s ) ) a n d   ( o k i z = f a l s e ) )   d o 
 
                                                                 b e g i n 
 
                                                                     i f   ( ( ( s [ k ] = ' j ' ) a n d ( ( s [ k + 1 ] = ' z ' ) o r ( s [ k + 1 ] = ' l ' ) o r ( s [ k + 1 ] = ' c ' ) ) ) ) t h e n   o k i z : = t r u e   e l s e 
 
                                                                     i f ( ( ( s [ k ] = ' c ' ) a n d ( s [ k + 1 ] = ' m ' ) a n d ( s [ k + 2 ] = ' p ' ) ) ) t h e n   o k i z : = t r u e   e l s e 
 
                                                                         i f ( ( ( s [ k ] = ' m ' ) a n d ( s [ k + 1 ] = ' o ' ) a n d ( s [ k + 2 ] = ' v ' ) ) ) t h e n   o k i z : = t r u e   e l s e 
 
                                                                             i f   ( ( ( ( s [ k ] = ' a ' ) a n d ( s [ k + 1 ] = ' s ' ) a n d ( s [ k + 2 ] = ' k ' ) ) ) ) t h e n   o k i z : = t r u e   e l s e 
 
                                                                                 i f ( ( ( ( s [ k ] = ' i ' ) a n d ( s [ k + 1 ] = ' n ' ) a n d ( s [ k + 2 ] = ' c ' ) ) ) ) t h e n   o k i z : = t r u e   e l s e 
 
                                                                                     i f ( ( ( ( s [ k ] = ' a ' ) a n d ( s [ k + 1 ] = ' d ' ) a n d ( s [ k + 2 ] = ' d ' ) ) ) ) t h e n   o k i z : = t r u e   e l s e 
 
                                                                                         i f ( ( ( ( s [ k ] = ' j ' ) a n d ( s [ k + 1 ] = ' m ' ) a n d ( s [ k + 2 ] = ' p ' ) ) ) ) t h e n   o k i z : = t r u e   e l s e 
 
                                                                                             i f ( ( ( ( s [ k ] = ' s ' ) a n d ( s [ k + 1 ] = ' u ' ) a n d ( s [ k + 2 ] = ' b ' ) ) ) ) t h e n   o k i z : = t r u e   e l s e 
 
                                                                                                 i f ( ( ( ( s [ k ] = ' r ' ) a n d ( s [ k + 1 ] = ' e ' ) a n d ( s [ k + 2 ] = ' t ' ) ) ) ) t h e n   o k i z : = t r u e   e l s e 
 
                                                                                                     i f ( ( ( ( s [ k ] = ' j ' ) a n d ( s [ k + 1 ] = ' n ' ) a n d ( s [ k + 2 ] = ' c ' ) ) ) ) t h e n   o k i z : = t r u e   e l s e 
 
                                                                                                             e t i : = e t i + s [ k ] ; 
 
                                                                         i f   ( o k i z = f a l s e ) t h e n 
 
                                                                             k : = k + 1 ; 
 
                                                                     e n d ; 
 
                                                             e t i k e t a s [ c o n t ] : = e t i ; 
 
                                                             p o s E t i k e t a s [ c o n t ] : = j ; 
 
                                                             c o n t : = c o n t + 1 ; 
 
                                                             p o s i c i o n : = ' ' ;   
 
                                                             f o r   l : = k   t o   l e n g t h ( s )   d o 
 
                                                                 p o s i c i o n : = p o s i c i o n + s [ l ] ; 
 
                                                             m e m o r i a . C e l l s [ 0 , j ] : = p o s i c i o n ; 
 
                                                             o k : = t r u e ; 
 
                                                         e n d ; 
 
         i f ( o k = f a l s e ) t h e n 
 
             b e g i n 
 
                 i f ( ( s [ 1 ] = ' m ' ) a n d ( s [ 2 ] = ' s ' ) a n d ( s [ 3 ] = ' g ' ) ) t h e n 
 
                     b e g i n 
 
                         e t i : = ' ' ; 
 
                         k : = 4 ; 
 
                         o k : = f a l s e ; 
 
                         w h i l e   ( o k = f a l s e )   d o 
 
                             i f ( s [ k ] < > ' " ' )   t h e n 
 
                                 b e g i n 
 
                                     e t i : = e t i + s [ k ] ; 
 
                                     k : = k + 1 ; 
 
                                 e n d 
 
                             e l s e 
 
                                 o k : = t r u e ; 
 
                         e t i k e t a s [ c o n t ] : = e t i ; 
 
                         p o s E t i k e t a s [ c o n t ] : = j ; 
 
                         c o n t : = c o n t + 1 ; 
 
                         e t i : = ' ' ; 
 
                         f o r   l : = k   t o   l e n g t h ( s )   d o 
 
                             e t i : = e t i + s [ l ] ; 
 
                         m e m o r i a . C e l l s [ 0 , j ] : = ' m s g ' + e t i ; 
 
                     e n d 
 
                 e l s e 
 
                     m e m o r i a . C e l l s [ 0 , j ] : = s 
 
             e n d ; 
 
         j : = j + 1 ; 
 
     e n d ; 
 
 / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 c o m p : = f a l s e ;   s : = ' b l a b l a b l a ' ; 
 
 w h i l e   s < > ' e n d '   d o 
 
     b e g i n 
 
         l a b e l P C . C a p t i o n : = i n t t o s t r ( p c ) ; 
 
         s : = m e m o r i a . C e l l s [ 0 , p c ] ;   
 
         c a s e   ( s [ 1 ] )   o f 
 
         ' a ' : 
 
             b e g i n 
 
                 i f   ( ( s [ 2 ] = ' s ' ) a n d ( s [ 3 ] = ' k ' ) )   t h e n               / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *   A S K 
 
                     b e g i n 
 
                         i n c ( p c ) ; 
 
                         i f ( s [ 4 ] = ' a ' ) t h e n 
 
                             b e g i n 
 
                                 a x : = s t r t o i n t ( i n p u t b o x ( ' a x ' , ' I n g r e s e   e l   v a l o r   d e   a x : ' , ' ' ) ) ; 
 
                                 A X e d i t . T e x t : = i n t t o s t r ( a x ) ; 
 
                                 N U M : = a x ; 
 
                             e n d 
 
                         e l s e 
 
                             i f ( s [ 4 ] = ' b ' ) t h e n 
 
                                 b e g i n 
 
                                     b x : = s t r t o i n t ( i n p u t b o x ( ' b x ' , ' I n g r e s e   e l   v a l o r   d e   b x : ' , ' ' ) ) ; 
 
                                     B X e d i t . T e x t : = i n t t o s t r ( b x ) ; 
 
                                     N U M : = b x ; 
 
                                 e n d 
 
                             e l s e 
 
                                 i f ( s [ 4 ] = ' c ' ) t h e n 
 
                                     b e g i n 
 
                                         c x : = s t r t o i n t ( i n p u t b o x ( ' c x ' , ' I n g r e s e   e l   v a l o r   d e   c x : ' , ' ' ) ) ; 
 
                                         C X e d i t . T e x t : = i n t t o s t r ( c x ) ; 
 
                                         N U M : = c x ; 
 
                                     e n d 
 
                                 e l s e 
 
                                     i f ( s [ 4 ] = ' d ' ) t h e n 
 
                                         b e g i n 
 
                                             d x : = s t r t o i n t ( i n p u t b o x ( ' d x ' , ' I n g r e s e   e l   v a l o r   d e   d x : ' , ' ' ) ) ; 
 
                                             D X e d i t . T e x t : = i n t t o s t r ( d x ) ; 
 
                                             N U M : = d x ; 
 
                                         e n d 
 
                                     e l s e 
 
                                         b e g i n 
 
                                             p o s i c i o n : = ' ' ; 
 
                                             f o r   j : = 5   t o   ( l e n g t h ( s ) - 1 )   d o 
 
                                                 p o s i c i o n : = p o s i c i o n + s [ j ] ; 
 
                                             p o s : = s t r t o i n t ( p o s i c i o n ) ; 
 
                                             m e m o r i a . C e l l s [ 0 , p o s ] : = ( i n p u t b o x ( ' m e m o r i a [ ' + p o s i c i o n + ' ] ' , ' I n g r e s e   e l   v a l o r   d e   m e m o r i a [ ' + p o s i c i o n + ' ] ' , ' ' ) ) ; 
 
                                             N U M : = s t r t o i n t ( m e m o r i a . C e l l s [ 0 , p o s ] ) ; 
 
                                         e n d ; 
 
                     e n d 
 
                     e l s e 
 
                         i f   ( ( s [ 2 ] = ' d ' ) a n d ( s [ 3 ] = ' d ' ) ) t h e n           / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *   A D D 
 
                             b e g i n 
 
                                 i n c ( p c ) ; 
 
                                 p o s i c i o n : = ' ' ; 
 
                                 c a s e   s [ 6 ]   o f 
 
                                     ' a ' :   b e g i n   n u m e r o : = a x ;   e n d ; 
 
                                     ' b ' :   b e g i n   n u m e r o : = b x ;   e n d ; 
 
                                     ' c ' :   b e g i n   n u m e r o : = c x ;   e n d ; 
 
                                     ' d ' :   b e g i n   n u m e r o : = d x ;   e n d ; 
 
                                     ' 0 ' . . ' 9 ' : 
 
                                         b e g i n 
 
                                             f o r   j : = 6   t o   l e n g t h ( s )   d o 
 
                                                 p o s i c i o n : = p o s i c i o n + s [ j ] ; 
 
                                             n u m e r o : = s t r t o i n t ( p o s i c i o n ) ; 
 
                                         e n d ; 
 
                                     ' [ ' : 
 
                                         b e g i n 
 
                                             f o r   j : = 7   t o   ( l e n g t h ( s ) - 1 ) d o 
 
                                                 p o s i c i o n : = p o s i c i o n + s [ j ] ; 
 
                                             n u m e r o : = s t r t o i n t ( m e m o r i a . C e l l s [ 0 , s t r t o i n t ( p o s i c i o n ) ] ) ; 
 
                                         e n d ; 
 
                                 e n d ; 
 
                                 c a s e   s [ 4 ]   o f 
 
                                     ' a ' :   b e g i n   a x : = a x + n u m e r o ;   N U M : = a x ;   A X e d i t . t e x t : = i n t t o s t r ( a x ) ;   e n d ; 
 
                                     ' b ' :   b e g i n   b x : = b x + n u m e r o ;   N U M : = b x ;   B X e d i t . t e x t : = i n t t o s t r ( b x ) ;   e n d ; 
 
                                     ' c ' :   b e g i n   c x : = c x + n u m e r o ;   N U M : = c x ;   C X e d i t . t e x t : = i n t t o s t r ( c x ) ;   e n d ; 
 
                                     ' d ' :   b e g i n   d x : = d x + n u m e r o ;   N U M : = d x ;   D X e d i t . t e x t : = i n t t o s t r ( d x ) ;   e n d ; 
 
                                     e n d ; 
 
                             e n d 
 
                         e l s e 
 
                             b e g i n 
 
                             e n d ; 
 
             e n d ; 
 
         ' m ' : 
 
             b e g i n 
 
                 p o s i c i o n : = ' ' ; 
 
                 i f   ( ( s [ 2 ] = ' o ' ) a n d ( s [ 3 ] = ' v ' ) )   t h e n                                         / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *   M O V 
 
                     b e g i n 
 
                         i n c ( p c ) ; 
 
                         c a s e   s [ 6 ]   o f 
 
                             ' a ' :   b e g i n   n u m e r o : = a x ;   e n d ; 
 
                             ' b ' :   b e g i n   n u m e r o : = b x ;   e n d ; 
 
                             ' c ' :   b e g i n   n u m e r o : = c x ;   e n d ; 
 
                             ' d ' :   b e g i n   n u m e r o : = d x ;   e n d ; 
 
                             ' 0 ' . . ' 9 ' : 
 
                                 b e g i n 
 
                                     f o r   j : = 6   t o   l e n g t h ( s )   d o 
 
                                         p o s i c i o n : = p o s i c i o n + s [ j ] ; 
 
                                     n u m e r o : = s t r t o i n t ( p o s i c i o n ) ; 
 
                                 e n d ; 
 
                             ' [ ' : 
 
                                 b e g i n 
 
                                     f o r   j : = 7   t o   ( l e n g t h ( s ) - 1 ) d o 
 
                                         p o s i c i o n : = p o s i c i o n + s [ j ] ; 
 
                                     n u m e r o : = s t r t o i n t ( m e m o r i a . C e l l s [ 0 , s t r t o i n t ( p o s i c i o n ) ] ) ; 
 
                                 e n d ; 
 
                         e n d ; 
 
                         c a s e   s [ 4 ]   o f 
 
                             ' a ' :   b e g i n   a x : = n u m e r o ;   N U M : = a x ;   A X e d i t . t e x t : = i n t t o s t r ( n u m e r o ) ;   e n d ; 
 
                             ' b ' :   b e g i n   b x : = n u m e r o ;   N U M : = b x ;   B X e d i t . t e x t : = i n t t o s t r ( n u m e r o ) ;   e n d ; 
 
                             ' c ' :   b e g i n   c x : = n u m e r o ;   N U M : = c x ;   C X e d i t . t e x t : = i n t t o s t r ( n u m e r o ) ;   e n d ; 
 
                             ' d ' :   b e g i n   d x : = n u m e r o ;   N U M : = d x ;   D X e d i t . t e x t : = i n t t o s t r ( n u m e r o ) ;   e n d ; 
 
                         e n d ; 
 
                     e n d 
 
                 e l s e 
 
                     i f   ( ( s [ 2 ] = ' s ' ) a n d ( s [ 3 ] = ' g ' ) ) t h e n                                               / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *   M S G 
 
                         b e g i n 
 
                             i n c ( p c ) ; 
 
                             p o s i c i o n : = ' ' ; 
 
                             f o r   j : = 5   t o   ( l e n g t h ( s ) - 1 )   d o 
 
                                 p o s i c i o n : = p o s i c i o n + s [ j ] ; 
 
                             m e m o 2 . L i n e s . A d d ( p o s i c i o n ) ; 
 
                         e n d 
 
                     e l s e 
 
                         b e g i n 
 
                         e n d ; 
 
             e n d ; 
 
         ' i ' : 
 
             b e g i n 
 
                 i f ( ( s [ 2 ] = ' n ' ) a n d ( s [ 3 ] = ' c ' ) ) t h e n                                               / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *   I N C 
 
                     b e g i n 
 
                         i n c ( p c ) ; 
 
                         c a s e   s [ 4 ]   o f 
 
                             ' a ' :   b e g i n   i n c ( a x ) ;   N U M : = a x ;   A X e d i t . t e x t : = i n t t o s t r ( a x ) ;   e n d ; 
 
                             ' b ' :   b e g i n   i n c ( b x ) ;   N U M : = b x ;   B X e d i t . t e x t : = i n t t o s t r ( b x ) ;   e n d ; 
 
                             ' c ' :   b e g i n   i n c ( c x ) ;   N U M : = c x ;   C X e d i t . t e x t : = i n t t o s t r ( c x ) ;   e n d ; 
 
                             ' d ' :   b e g i n   i n c ( d x ) ;   N U M : = d x ;   D X e d i t . t e x t : = i n t t o s t r ( d x ) ;   e n d ; 
 
                         e n d ; 
 
                     e n d 
 
                 e l s e 
 
                     b e g i n 
 
                     e n d ; 
 
             e n d ; 
 
         ' j ' : 
 
             b e g i n 
 
                 i f ( ( s [ 2 ] = ' m ' ) a n d ( s [ 3 ] = ' p ' ) ) t h e n                                   / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *   J M P 
 
                     b e g i n 
 
                         p o s i c i o n : = ' ' ; 
 
                                 f o r   i : = 4   t o   l e n g t h ( s ) d o 
 
                                     p o s i c i o n : = p o s i c i o n + s [ i ] ; 
 
                                 i : = 1 ; o k : = f a l s e ; 
 
                                 w h i l e ( ( i < c o n t ) a n d ( o k = f a l s e ) ) d o 
 
                                     b e g i n 
 
                                         i f ( e t i k e t a s [ i ] = p o s i c i o n ) t h e n 
 
                                             o k : = t r u e 
 
                                         e l s e 
 
                                             i : = i + 1 ; 
 
                                     e n d ; 
 
                                 p c : = p o s E t i k e t a s [ i ] ; l a b e l 1 . C a p t i o n : = e t i k e t a s [ i ] ; 
 
                     e n d 
 
                 e l s e 
 
                 i f   ( s [ 2 ] = ' z ' ) t h e n                                                               / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *   J Z 
 
                     b e g i n 
 
                         i f ( N U M = 0 ) t h e n 
 
                             b e g i n 
 
                                 p o s i c i o n : = ' ' ; 
 
                                 f o r   i : = 3   t o   l e n g t h ( s ) d o 
 
                                     p o s i c i o n : = p o s i c i o n + s [ i ] ; 
 
                                 i : = 1 ; o k : = f a l s e ; 
 
                                 w h i l e ( ( i < c o n t ) a n d ( o k = f a l s e ) ) d o 
 
                                     b e g i n 
 
                                         i f ( e t i k e t a s [ i ] = p o s i c i o n ) t h e n 
 
                                             o k : = t r u e 
 
                                         e l s e 
 
                                             i : = i + 1 ; 
 
                                     e n d ; 
 
                                 p c : = p o s E t i k e t a s [ i ] ; 
 
                             e n d 
 
                         e l s e 
 
                             i n c ( p c ) ; 
 
                     e n d 
 
                 e l s e                                                                                                     / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *   J L 
 
                     i f ( s [ 2 ] = ' l ' ) t h e n 
 
                         b e g i n 
 
                             i f   ( c o m p = f a l s e ) t h e n 
 
                                 b e g i n 
 
                                     p o s i c i o n : = ' ' ; 
 
                                     f o r   i : = 3   t o   l e n g t h ( s ) d o 
 
                                         p o s i c i o n : = p o s i c i o n + s [ i ] ; 
 
                                     i : = 1 ; o k : = f a l s e ; 
 
                                     w h i l e ( ( i < c o n t ) a n d ( o k = f a l s e ) ) d o 
 
                                         b e g i n 
 
                                             i f ( e t i k e t a s [ i ] = p o s i c i o n ) t h e n 
 
                                                 o k : = t r u e 
 
                                             e l s e 
 
                                                 i : = i + 1 ; 
 
                                         e n d ; 
 
                                     p c : = p o s E t i k e t a s [ i ] ;   
 
                                 e n d 
 
                             e l s e 
 
                                 i n c ( p c ) ; 
 
                             c o m p : = f a l s e ; 
 
                         e n d 
 
                     e l s e 
 
                         i f ( s [ 2 ] = ' c ' ) t h e n                                                                   / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *   J C 
 
                             b e g i n 
 
                                 i f ( N U M < 0 ) t h e n 
 
                                     b e g i n 
 
                                         p o s i c i o n : = ' ' ; 
 
                                         f o r   i : = 3   t o   l e n g t h ( s ) d o 
 
                                             p o s i c i o n : = p o s i c i o n + s [ i ] ; 
 
                                         i : = 1 ; o k : = f a l s e ; 
 
                                         w h i l e ( ( i < c o n t ) a n d ( o k = f a l s e ) ) d o 
 
                                             b e g i n 
 
                                                 i f ( e t i k e t a s [ i ] = p o s i c i o n ) t h e n 
 
                                                     o k : = t r u e 
 
                                                 e l s e 
 
                                                     i : = i + 1 ; 
 
                                             e n d ; 
 
                                         p c : = p o s E t i k e t a s [ i ] ; 
 
                                     e n d 
 
                                 e l s e 
 
                                     i n c ( p c ) ; 
 
                         e n d 
 
                         e l s e 
 
                             i f ( ( s [ 2 ] = ' n ' ) a n d ( s [ 3 ] = ' c ' ) ) t h e n                                   / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * J N C 
 
                                 b e g i n 
 
                                     i f ( N U M < = 0 ) t h e n 
 
                                 b e g i n 
 
                                 p o s i c i o n : = ' ' ; 
 
                                 f o r   i : = 4   t o   l e n g t h ( s ) d o 
 
                                     p o s i c i o n : = p o s i c i o n + s [ i ] ; 
 
                                 i : = 1 ; o k : = f a l s e ; 
 
                                 w h i l e ( ( i < c o n t ) a n d ( o k = f a l s e ) ) d o 
 
                                     b e g i n 
 
                                         i f ( e t i k e t a s [ i ] = p o s i c i o n ) t h e n 
 
                                             o k : = t r u e 
 
                                         e l s e 
 
                                             i : = i + 1 ; 
 
                                     e n d ; 
 
                                 p c : = p o s E t i k e t a s [ i ] ; 
 
                             e n d 
 
                         e l s e 
 
                             i n c ( p c ) ; 
 
                                 e n d 
 
                             e l s e 
 
                                 b e g i n 
 
                                 e n d ; 
 
             e n d ; 
 
         ' s ' : 
 
             b e g i n 
 
                 i f   ( ( s [ 2 ] = ' u ' ) a n d ( s [ 3 ] = ' b ' ) ) t h e n                                                       / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *   S U B 
 
                     b e g i n 
 
                         p o s i c i o n : = ' ' ; 
 
                         c a s e   s [ 6 ]   o f 
 
                             ' a ' :   b e g i n   n u m e r o : = a x ;   e n d ; 
 
                             ' b ' :   b e g i n   n u m e r o : = b x ;   e n d ; 
 
                             ' c ' :   b e g i n   n u m e r o : = c x ;   e n d ; 
 
                             ' d ' :   b e g i n   n u m e r o : = d x ;   e n d ; 
 
                             ' 0 ' . . ' 9 ' : 
 
                                 b e g i n 
 
                                     f o r   j : = 6   t o   l e n g t h ( s )   d o 
 
                                         p o s i c i o n : = p o s i c i o n + s [ j ] ; 
 
                                     n u m e r o : = s t r t o i n t ( p o s i c i o n ) ; 
 
                                 e n d ; 
 
                             ' [ ' : 
 
                                 b e g i n 
 
                                     f o r   j : = 7   t o   ( l e n g t h ( s ) - 1 ) d o 
 
                                         p o s i c i o n : = p o s i c i o n + s [ j ] ; 
 
                                     n u m e r o : = s t r t o i n t ( m e m o r i a . C e l l s [ 0 , s t r t o i n t ( p o s i c i o n ) ] ) ; 
 
                                 e n d ; 
 
                         e n d ; 
 
                         c a s e   s [ 4 ]   o f 
 
                             ' a ' :   b e g i n   a x : = a x - n u m e r o ;   N U M : = a x ;   A X e d i t . t e x t : = i n t t o s t r ( a x ) ;   e n d ; 
 
                             ' b ' :   b e g i n   b x : = b x - n u m e r o ;   N U M : = b x ;   B X e d i t . t e x t : = i n t t o s t r ( b x ) ;   e n d ; 
 
                             ' c ' :   b e g i n   c x : = c x - n u m e r o ;   N U M : = c x ;   C X e d i t . t e x t : = i n t t o s t r ( c x ) ;   e n d ; 
 
                             ' d ' :   b e g i n   d x : = d x - n u m e r o ;   N U M : = d x ;   D X e d i t . t e x t : = i n t t o s t r ( d x ) ;   e n d ; 
 
                         e n d ; 
 
                     i n c ( p c ) ; 
 
                 e n d 
 
                 e l s e 
 
                     b e g i n 
 
                     e n d ; 
 
             e n d ; 
 
         ' r ' : 
 
             b e g i n 
 
                 i f   ( ( s [ 2 ] = ' e ' ) a n d ( s [ 3 ] = ' t ' ) ) t h e n                             / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *   R E T 
 
                     b e g i n 
 
                         p c : = p c A N T ; 
 
                     e n d 
 
                 e l s e 
 
                     b e g i n 
 
                     e n d 
 
             e n d ; 
 
         ' e ' : 
 
             b e g i n 
 
                 i n c ( p c ) ; 
 
             e n d ; 
 
         ' c ' : 
 
             b e g i n 
 
                 i f ( ( s [ 2 ] = ' m ' ) a n d ( s [ 3 ] = ' p ' ) ) t h e n                                 / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *   C M P 
 
                     b e g i n 
 
                         p o s i c i o n : = ' ' ; 
 
                         c a s e   s [ 7 ]   o f 
 
                             ' a ' :   b e g i n   n u m e r o : = a x ;   e n d ; 
 
                             ' b ' :   b e g i n   n u m e r o : = b x ;   e n d ; 
 
                             ' c ' :   b e g i n   n u m e r o : = c x ;   e n d ; 
 
                             ' d ' :   b e g i n   n u m e r o : = d x ;   e n d ; 
 
                             ' 0 ' . . ' 9 ' : 
 
                                 b e g i n 
 
                                     f o r   j : = 6   t o   l e n g t h ( s )   d o 
 
                                         p o s i c i o n : = p o s i c i o n + s [ j ] ; 
 
                                     n u m e r o : = s t r t o i n t ( p o s i c i o n ) ; 
 
                                 e n d ; 
 
                             ' [ ' : 
 
                                 b e g i n 
 
                                     f o r   j : = 7   t o   ( l e n g t h ( s ) - 1 ) d o 
 
                                         p o s i c i o n : = p o s i c i o n + s [ j ] ; 
 
                                     n u m e r o : = s t r t o i n t ( m e m o r i a . C e l l s [ 0 , s t r t o i n t ( p o s i c i o n ) ] ) ; 
 
                                 e n d ; 
 
                         e n d ; 
 
                         c a s e   s [ 4 ]   o f 
 
                             ' a ' :   b e g i n   i f ( a x = n u m e r o ) t h e n   b e g i n   c o m p : = t r u e ;   N U M : = n u m e r o   e n d   e l s e   c o m p : = f a l s e ;   e n d ; 
 
                             ' b ' :   b e g i n   i f ( b x = n u m e r o ) t h e n   b e g i n   c o m p : = t r u e ;   N U M : = n u m e r o   e n d   e l s e   c o m p : = f a l s e ;   e n d ; 
 
                             ' c ' :   b e g i n   i f ( c x = n u m e r o ) t h e n   b e g i n   c o m p : = t r u e ;   N U M : = n u m e r o   e n d   e l s e   c o m p : = f a l s e ;   e n d ; 
 
                             ' d ' :   b e g i n   i f ( d x = n u m e r o ) t h e n   b e g i n   c o m p : = t r u e ;   N U M : = n u m e r o   e n d   e l s e   c o m p : = f a l s e ;   e n d ; 
 
                         e n d ; 
 
                     i n c ( p c ) ; 
 
                 e n d ; 
 
             e n d ; 
 
         e l s e 
 
             i f ( ( s [ 2 ] = ' a ' ) a n d ( s [ 3 ] = ' l ' ) a n d ( s [ 4 ] = ' l ' ) ) t h e n                   / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C A L L 
 
                 b e g i n 
 
                     p c A n t : = p c ; 
 
                     p o s i c i o n : = ' ' ; 
 
                     f o r   i : = 3   t o   l e n g t h ( s ) d o 
 
                         p o s i c i o n : = p o s i c i o n + s [ i ] ; 
 
                     i : = 0 ; o k : = f a l s e ; 
 
                     w h i l e ( ( i < c o n t ) a n d ( o k = f a l s e ) ) d o 
 
                         b e g i n 
 
                             i f ( e t i k e t a s [ i ] = p o s i c i o n ) t h e n 
 
                                 o k : = t r u e 
 
                             e l s e 
 
                                 i : = i + 1 ; 
 
                         e n d ; 
 
                       p c : = p o s E t i k e t a s [ i ] ; 
 
                 e n d 
 
             e l s e 
 
                 b e g i n 
 
                 e n d ; 
 
         e n d ; 
 
     e n d ; 
 
 / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 e x c e p t 
 
     S h o w M e s s a g e ( ' E r r o r ' ) ; 
 
 e n d ; 
 
 e n d ; 
 
 
 
 p r o c e d u r e   T F o r m 2 . F o r m C r e a t e ( S e n d e r :   T O b j e c t ) ; 
 
 b e g i n 
 
 
 
 e n d ; 
 
 
 
 e n d . 